home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / ovrsub.com / OVRSUB.INC < prev    next >
Encoding:
Text File  |  1990-01-04  |  859 b   |  43 lines
  1. type
  2.   SigType = string[6];
  3.  
  4. const
  5.   OvrSubSignature : SigType = 'OVRSUB';
  6.   MaxEntryPts = 1000;
  7.   CarryFlagMask = $0001;
  8.  
  9. type
  10.   Long =
  11.     record
  12.       LowWord, HighWord : Word;
  13.     end;
  14.  
  15.   VectorRec = record
  16.     Int3F : Word;
  17.     CodeOffset : Word;
  18.     Fill : Byte;
  19.   end;
  20.  
  21.   StaticDispatcher = record
  22.     {00} ReturnInt : Word;
  23.     {02} ReturnOfs : Word;
  24.     {04} FileOfs : LongInt;
  25.     {08} CodeSize : Word;
  26.     {0A} FixupSize : Word;
  27.     {0C} EntryPts : Word;
  28.     {0E} CodeListNext : Word;
  29.     {10} LoadSegment : Word;
  30.     {12} Reprieved : Word;
  31.     {14} LoadListNext : Word;
  32.     {16} EmsPage : Word;
  33.     {18} EmsOffset : Word;
  34.     {1A} UserData : array [0..2] of Word;
  35.     {20} Vectors : array [1..MaxEntryPts] of VectorRec;
  36.   end;
  37.  
  38. var
  39.   Trailer : record
  40.     OldFileSize : LongInt;
  41.     Sig : SigType;
  42.   end;
  43.